home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 37 / 037.d81 / delete right (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  42 lines
  1. 0 ifmm=1then200
  2. 5 gosub60100:clr:mm=1
  3. 10 rem delete right - lucy s. terrier
  4. 15 forj=680to725:readk:cs=cs+k:next:restore:ifcs<>4855thenprint"data error":end
  5. 20 forj=680to725:readk:pokej,k:next
  6. 30 data120,162,181,160,002,142,020,003
  7. 35 data140,021,003,088,096,072,138,072
  8. 40 data152,072,165,197,201,003,208,014
  9. 45 data169,002,133,198,169,029,141,119
  10. 50 data002,169,020,141,120,002,104,168
  11. 55 data104,170,104,076,049,234
  12. 100 print"[147]                delete right"
  13. 110 print"              by lucy terrier"
  14. 120 print"    [129]to activate [149]delete right[129], enter"
  15. 130 print"sys680[129]. to de-activate [149]delete right[129],"
  16. 140 print"enter sys65418[129]."
  17. 150 print"    [129]when activated, press f7 to use"
  18. 160 print"[149]delete right's[129] function."
  19. 170 print"    [129]enter goto loadstar[129] to return"
  20. 180 print"to loadstar.":poke198,.
  21. 190 end
  22. 200 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  23. 210 ifer<>63thenend
  24. 220 sys65418:load"hello connect",8
  25. 60100 poke53280,7:poke53281,7
  26. 60110 print"[147]"chr$(142)"[149][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]";
  27. 60120 fora=1to23:print"[221]"spc(38)"[221]";:next
  28. 60130 print"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203][157][148][192]"
  29. 60140 fora=217to242:pokea,peek(a)or128:next
  30. 60150 print"         [156]loadstar presents:"
  31. 60160 print"                              "
  32. 60170 print"             delete right     [129] "
  33. 60180 print"                              [129] "
  34. 60190 print"          by lucy s. terrier  [129] "
  35. 60200 print"                              [129] "
  36. 60210 print"            copyright 1987    [129] "
  37. 60220 print"                              [129] "
  38. 60230 print"                               "
  39. 60240 print"       [156]press space to continue."
  40. 60250 a=peek(203):ifa<>60then60250
  41. 60260 return
  42.